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1 001 MODULE BASSCCPOS ( ! BASIC Current Cursor Position 
¢ Oe 6 JDENT = *1-009° ' File: BASCCPOS .BS> 
4 1 BEGIN 
5 0005 1! 
: 00 ; PRESS SSSLO SSIES ETT TTI ITI TIIITTITI CITI TILL I LLL LiLTiLiiTitiiiititt 
'e « 
8 5008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
* 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ” 
19 poy : * ALL RIGHTS RESERVED. * 
i® t 
i Bote 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED « 
1 001 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
15 0015 1 !* COPIES THEREOF MAY NOT BE P IDED OR OTHERWISE MADE AVAILABLE TO ANY * 
16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY % 
Ht id fA : in TRANSFERRED. 2 
.* * 
19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$3 oOe) ; os CORPORATION. ® 
i e 
$¢ 002 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
$e Bose : SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. - 
26 0026 1 ie - 
a7 0027 1 !eeeeeereerenenerererrereteeeeetetereteeeeteteteteteeeteeenenerenereteteneeee 
28 0028 1 
29 94 1 !e¢ 
He Bee : } FACILITY: BASIC Support Library - user callable 
32 0032 1 ' ABSTRACT: 
33 0035 1! s 
34 0034 1! This module supports the BASIC function CCPOS. It returns the current 
35 0035 1! cursor position on the given channel number. For the time being it 
36 0036 1! returns the value in LUBSB_PRINT_POS. Eventually it is hoped that the 
He ot f4 : } terminal driver can be intérrogated directly for the cursor position. 
4 44 ! ; ENVIRONMENT: User access mode; mixture of AST level or not 
1 9041 : AUTHOR: Donald G. Petersen, CREATION DATE: 29-Nov-78 
43 $028 1 | MODIFIED BY: 
44 0044 1! 
45 0045 1! 1-01 = Original. DGP 29-Nov-78 
46 0046 1 ! 1-002 - Use OPENSK LUN_BPRI in call to CB_PUSH. DGP 05-Dec-78 
47 0047 1 ! 1-003 = Change REQUIRE file names from FOR... to OTS... JBS 06-DEC-78 
48 0048 1 ! 1-004 - Change OPEN prefix to LUB. JBS 13-DEC-78 
49 0049 1 ! 1-005 = Change FORSE.B... to BAS$$CB... JBS 02-JAN-1979 
50 0050 1 ! 1-006 - Change PRINT POS to longword. DGP 19-Mar-79 
51 0051 1! e's 44 - Allow CB_PUSH to reach back to the PRINT LUB. JBS 01-MAY-1979 
6 0052 1 ! 1-008 = Call STOP_IO if the channel is not open. JBS 01-MAY-197 
5 0055 1 ! 1-009 = Set up ISBSA_USER_FP. JBS 25-JUL-1979 
54 0054 1 !-- 
55 0055 1 
56 0056 1 !<BLF/PAGE> 
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BASRTL.SRCJBASCCPOS .B32;1 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


LINKAGES 


REQUIRE *RTLIN:OTSLNK'; 
' 


! TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSCCPOS; 


: INCLUDE FILES: 


REQUIRE *RTLIN:RTLPSECT’; 
REQUIRE *RTLML:OTSLUB'; 
REQUIRE *RTLML:OTSISB’; 
LIBRARY ‘RTLSTARLE'; 


' 
MACROS: 
NONE 


; 
: 

; 

: 

i 

i EQUATED SYMBOLS: 

: NONE 

. PSECT DECLARATIONS: 
DECLARE _PSECTS (BAS); 
! OWN STORAGE: 

NONE 

1 

: 

; 

i 


EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
BAS$$CB_PUSH : JSB_CB_PUSH, 
BAS$$CB-POP : JSB TB POP NOVALUE, 
BASSS$STOP_IO : NOVALOE; 


EXTERNAL LITERAL 


Initialize all Linkages 


Current Cursor Position 


Psect definitions 

needed for LUBSL_PRINT_POS 

needed for ISBSA_USER_FP 

STARLET Library for macros and symbols 


declare PSECTs for BASS facility 


Push control block 
Pop control block 
Signal fatal 1/0 errors 


PASSE CPOS 


. 
1@ 


| 


115 
116 


eh 


BASSK_10_CHANOT 


: UNSIGNED (8); 


1besep 


pa19ee 11:50:45 — EBAsRILssme SeascCPOs.8 


' 1/0 Channel not open 


3351 


Page 
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6 
BASRTL.SRCJBASCCPOS.B32;1 3) 


egos Ia 


3 118 4 1 GLOBAL ROUTINE BASSCCPOS ( ! Get cursor position 
is TY 945 1 UNIT ! Channel number for which cursor position is desired 
13 20 4 1 )ss 

; 121 1 

3 7 ¢ ace 1 tee 
is : 2 Rep : : FUNCTIONAL DESCRIPTION: 

3; te 2) 7! Return the current cursor position of the indicated channel. 
3 126 9 ¢ 1: Channel 0 is split into 2 data bases, input and output. If channel 0 
is Yer 0955 1! is specified, then the cursor position for the output data base will be 

: 128 0954 1! returned. This problem will go away if and when the terminal driver supplies 
3 ; 9 boee : } the cursor position for files opened on a terminal. 

3 (151 0987 1 ! FORMAL PARAMETERS: 

; 13g 0958 1! : 

3 7 0959 1! UNIT. rl.v cursor position of this unit is returned 

3 if 0960 1! 

3 155 0961 1 ! IMPLICIT INPUTS: 

3; (i 0962 1! ; 

s 37 0965 1! LUBSL_PRINT_POS Current cursor position for a channel 

; 4138 0964 1! 

; #4139 0965 1°! IMPLICIT OUTPUTS: 

3; 140 0966 1! 

3; «(141 0967 1! NONE 
ls re 0968 1! 
i; 14 0969 1 ! ROUTINE VALUE: 

3 (1446 0970 1! 

; rs 344 : CURSOR_POS.wl.v Current cursor position of indicated channel 

3 109 0975 1 ! SIDE EFFECTS: 

: 148 0974 1! 

3; (6149 0975 1! Errors are signalled if a channel number less than K_DLUN_MIN or 

3; 430 0976 1! greater than 99 by BASS$CB_PUSH. If the channel is not 0 and 

3; «6151 0977 1! t has not been opened, this routine signals. 

: 136 0978 1! 

“eS. 0979 1 !-- 

3 «6154 0980 1 

3 W995 0981 BEGIN 

3s 136 098 

s tor 098 BUILTIN 

: 158 0984 2 FP; 

3; 139 0985 

; 160 0986 GLOBAL REGISTER 

; 161 0987 CCB = K_CCB_REG : REF BLOCK C, BYTE); 

; 16g 0988 

; 0989 MAP 

3 164 0990 UNIT : REF BLOCK; 

3; «165 0991 

: 166 099 LOCAL 

: 167 099 FMP : REF BLOCK C, BYTE, es: 

: 168 0994 CCPOS; ! holds cursor position 

3; 169 0995 

3 170 09 FMP = .FP; 

3; 171 0997 '¢ ; ip 

5 176 099 ! If unit 0 was requested then change the unit number to indicate the 

3; V7 0999 ! PRINT logical unit. Call CB_PUSH to get a pointer to the data base. If 

3 (174 100 ! the unit number is not in the valid range of unit numbers, CB_PUSH will 


fF 2 
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tt 19=808= 1382 90: 0G :2 YBASRTL SRe BASCCPOS.832;1 ad (33 


' signal an error. Check to see if the channel has been opened and if the 
} Logical unit is not 0 then signal. 


BASS$CB_PUSH ((IF .UNIT EQL_0 THEN LUBSK_LUN_BPRI ELSE .UNIT), LUBSK_ILUN_MIN); 
CCB CISBSA_USER_FP) = .FMP CSFSL_SAVE_FPT; 


Gen NOT .CCB CLUBSV_OPENED]) AND (.UNIT GTR 0)) 


Oooo 
VPwn— 


! The unit is not 0 and it is not opened. Pop the control blocks back 
and signal the error. 

é 

1 


staat, <n (BAS$K_10_CHANOT) 
i Everything is valid. Pick up the cursor position from the channel 
data base 
CCPOS = .CCB CLUBSL_PRINT_POS); 


'¢ 
Pop the control block back and return the cursor position. 


BASSS(B_POP (); 


at 
OOOOOOOOOOM® 000800000800 NINN 
SSSSESL SS SSSR FSP Sao 
ee ee LLL 
folelelelolelelolelelolelolelealalolelelelalalolelal a) 


tA i os > ss 9 9 ss 


PONIPOPOPONONYD 2 OO OOOO 
AUS WUN—OOONAUESWN—O0O@ 


RETURN .CCPOS 
END; ! End of routine BASSCCPOS 


-TITLE BASSCCPOS 
IDENT \1-009\ 


| 
-EXTRN BASSS$CB_PUSH, BAS$$CB_POP 
-EXTRN BASS$STOP_IO, BAS$K_10_CHANOT 
| 


-PSECT _BASSCODE,NOWRT, SHR, PIC,2 
-ENTRY BASSCCPOS, Save R2,R3,R4,R11 


1¢ 00000 : 
53 5D D0 00002 MOVL = *FP,, + 0996 
54 04 AC DdO 00005 MOVL UNIT, R4& > 1004 

05 12 00009 BNEG 1$ : 

52 08 CE 00008 MNEGL #8, R2 : 

03 11 OOO0E BRB $ : 

52 54 00 00019 1$: MOVL 4, R2 ; 

50 08 CE 9001 2$: MNEGL ; 

000000006 00 16 00016 JSB BASS$$CB_PUSH F 
FFGC CB 0C A3 DO 000IC MOVL 12(FMP)7 -180(CCB) > 1005 
11 FC AB €E8 00022 BLBS -4(CCB), 3$ > 1007 

54 05 999 6 TSTL ; 

0p 15 000 BLEG 6. 3$ ; 
7E 006 BF 9A O002A MOVZBL #BAS$K_IO_CHANOT, -(SP) + 1013 

000000006 00 01 FB 900 E CALLS #1, BASSSSTOP_IO ; 
52 C8 AB DO 00037 33: MOVL -56(CCB), CCPOS > 1019 
000000006 00 16 00038 4$: JSB BAS$$(B_POP + 1024 
50 52 00 00041 MOVL  CCPOS, RO : 1025 
04 00044 RET > 1026 


2 
| BASSCCPOS -Sep-1984 00: AX-11 Bliss-32 V4.0-74 Pp 
pasos on eeen ope 99 :8eiz BASRTL.SRC IBASCCPOS .B32:1 sts 


3 Routine Size: 69 bytes, Routine Base: _BASSCODE + 0000 


: $B) 1958 1 END ‘End of BASSCCPOS 
4 'End of module BASS$CCPO 
: $08 1099 1 : 
3 04 ‘030 O ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes 
: _BASSCODE 69 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
\3 Library Statistics 
3 ovens woe Syabols oco--- - Pages Processing 
ls File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 1 0 581 00:01.2 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:BASCCPOS/OBJ=OBJ$:BASCCPOS MSRC$:BASCCPOS/UPDATE=(ENH$:BASCCPOS) 
: ptse: 69 code + 0 data bytes 
un Time 00:08.3 
ple Hae 00: 13% 3 
Lines/CPU Min: 74 


454 
Lovenes/CPUfins 44156 
eonery Used: 112 pages 
Compilation Complete 
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